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1 . SCOPE 


This document describes the detailed design characteristics of 
the Boundary Detection and Registration Program (BDARPl) , as 
built for the Bendix 100 Interactive Drafting System. The BDARPl 
is an unsophisticated version of the final software system, yec 
it provides the user with the basic capabilities of obtaining 
classified data boundary plots, editing, and registration of the 
final boundary plot to a user-selected base. 


2 . APPLICABLE DOCUMENTS 


The following document* form a part of this specification to the 

extent specified herein s 

• Technical Memorandum Software Specifications for Automated 
Thematic Plotting of Classified Digital Data, LEC-8289 

• Technical Memorandum Project Development Plan for the Bendix 
Interactive Drafting System Modification, LEC-8968 

• Design Specification for Automated Thematic Plotting of 
Classified Digital Data, LEC-9506 

• Technical Memorandum Acceptance Test Plan for Boundary Detection 
and Registration Program (BDARPl) , LEC-10672 

e TIRF 76-0046 

• TIRF 77-0059 

• Design Specification for Modification of Boundary Detection 
and Registration Program (BDARPl) for 9-track Data Incut, 

January 1978, LEC-11879. 

• Acce'-’.anco Test Specification for Modification of Boundary 
Detection and Registration Program (BDARPl) for 9-Track 
Tape Data Input, March 1978, LEC-12038. 


3 . SYSTEM DESCRIPTION 


The Boundary Detection and Registration Program (BDARPl) was 
designed and Implemented as an addition to the basic Bendix 100 
Drafting Program. The BOARPl consists of three overlays: 

USER09 - the classified tape initialization module 

T9 - the tape read and data storage routine 

TM - the boundary detection and registration algorithm 

To begin processing, USER09 accepts the user's options and roads 
the header record from a 7 or 9 track, 800 BPI, Universal 
formatted classified tape directly or indirectly obtained from the 
GE Interactive Multispectral Image Analyst System (Image lor 
the Earth Resources Interactive Processing System (ERIPS) or 
the UNIVAC 1100 Software. 

USER09 then calls overlay T9» which reads the required number of 
data records from the magnetic tape. The data are processed, 
packed and written on a temporary disk file, TDATA. Corner 
reference ticks are placed on the drawing file. 

Overlay T9 calls the third and last overlay - TM . Overlay TM 
reads the data stored in TDATA, one line at a time, and performs 
the boundary detection and registration algorithm. The resultant 
boundary information is written into a standard format drawing 
file, and control is then returned to the basic Bendix 100 
Drafting Program. Editing and write tape functions are now 
available to prepare the boundary data for plotting. 

BDARPl is designed to process one class at a time. For the case 
of multiple classes, BDARPl has to run as many times as the 
number of classes. Each execution of BDARPl under the Drafting 
Program is initialized by selecting USER OPTION: 9 on the menu. 


When processing is completed, BDARPl informs the user by sounding 
the tone on the display device (Tektronix) and illuminating the 
red indicator light on the digitizer cursor. 

Note that the editing and tape write functions are currently 
available under Bendix System 100 and can be used as long as the 
drawing file format used to store the boundary strings fay the 
boundary detection routine is identical to the one employed by 
the Bendix System 100 software. Since no additional software is 
required for the editing and write tape routines, these two are 
not included in the software description. However, as a result, 
it imposes a restriction on the file format to be used to store 
the boundary strings. 

3.1 HARDWARE DESCRIPTION 
Bendix System 100 configuration. 

3.2 SO FTWARE DESCRIPTION 

In this section each of the three overlays which form an integral 
part of BDARPl is further broken down into subroutines. Brief 
functional descriptions of each subroutine as well as inter- 
subroutine relationships are discussed. 

Overlay USER09 is the initialization module for BDARPl, and 
consists of t’le following routines: 

DRVF9- the driver routine for this overlay 

INPBD • the subroutine which interacts with the operator to 
accomplish input of the control parameters 

REAHD - subroutine which reads the header record on the classi- 
fied input tape 

- subroutine which error checks header record data and 
positions the tape for reading the image data 


INITN 


CON79 - subroutine which converts unformatted 7-track input data 
to byte data 

CONWD - subroutine which converts unformatted 9-track input data 
to byte data 

The second overlay, T9, whicl « rforms input of classified data, 
consists of the following routines: 

RDLIN9 - reads the classified data rape and packs the data into a 
temporary disk file, TDATA 

ISET - sets the appropriate bits in 16 bit words to indicate 

which pixels belong to the class being examined. These 
words are the packed data which RDLIN packs into TDATA 

CON79 - same as CON79 in overlay USER09 

CONWD - same as CONWD in overlay USER09 

FRAME - subroutine which inserts corner ticks in the drawing file 

LIMIT - subroutine which performs 8-parameter transformation to 

the data and sends it to the System 100 drawing file 

The third and final overlay in BDARPl is designated TM. This 
overlay is the boundary detection algorithm, which examines the 
packed data in TDATA, creates boundary strings to represent the 
boundaries of the specified data class, and writes these boundary 
strings into a drawing file formatted for the Bendix system. The 
routines which comprise overlay TM are: 

BDT9 - This is the main routine for TM and the principal routine 
for the boundary detection algorithm. 

READAT - This subroutine reads bit images of line data from the 
temporary disk file, TDATA. 

IGET - This subroutine unpacks the bit data read into READAT for 
the boundary detection algorithm. 

This routine redefines appropriate pixels as "classified" to 
facilitate connectivity as defined by the user input parameter 
Epsilon . 


FILL 


FINDAR - Subroutine which finds the appropriate boundary string 
to which a boundary line segment belongs. 

CONECT; CONALL; JOIN - Subroutines which link appropriate boundary 
strings. 

CLSTST - Subroutine which periodically checks the status of 

boundary strings for completeness, and processes the 
complete ones. 

AREAl - Subroutine which computes the area in pixel units of eacn 
classified group. 

LINII Subroutine which performs 8-parameter transformation to 
the data and sends it to the System 100 drawing file. 

ENDTST - Subroutine which handles segmentation of large plot 
string arrays. 

3.2.1 SOFTWARE COMPONENT NO. 1 (DRVF9) 

3 . 2 . 1 . 1 Linkage 

Subroutine DRVF9 calls user subroutines INPBD and INITN, and calls 

the system subroutine FRNOV. 

3. 2.1.2 Interface 

DRVF9 is linked with the common block ICONS (see Aopendix A) which 

houses all the basic control parameters for BDARPl- 

3. 2 . 1. 3 Input 

None 


3. 2. 1.4 Output 

An error message is output including an error code whenever the 
system subroutine FRNOV fails. 


/ 




3*2. 1.5 Storage Requirements 

Subroutine DRVF9 requires 184 words in core. 

3*2. 1.6 Description 

DRVF9 is the driver tor the initial overlay USER09, and calls 
overlay T» into core after USER09 has been executed. 

3. 2. 1.7 Flowchart 
2* 2 . 1 . 8 Listing 


(DRVF9) 


START 


; INPBu 

Obtain file no., 
Tape parity, and 
First line no. 



INITN’ 


Read Header 
Record and 
Position tape to 
First line no. 


I INi’IiU _ 

Obtain remaining 
^nput parameters 
{ from operator 

( .. 

I 

I 

I 

r ■ 

' store input ^ 

I from INPBD into 
' common block f 

/ICONS/ j 


I 



FRNOV 

j (System sub- 

I routine) bring 

overlay T2 into 

^core, and 
Execujbe T2 


END 




:o0i 


COMMON ICONS I0‘14V OPTNS<. 17>. ISET 

lirmf > 

XALPHt2>*". !'• 

CALL 1NPB0U> 

CALL INITN 
CALL INPBDv2> 

IALPW3>*0 

IER«e 

CALL FRNOVUALPH. lER) 

SmI. 

FORMAKIBX, "lER »'M4) 

END^^ error-no RETURN TO SYSTEM 101 


»^EhDY 



3.2.2 SOFTWARE COMFOWENT NO. 2 (XNPbD) 

3 . 2 . 2 . 1 Link age 

Subroutine INPBD ie called by DRVF9. 

3»2.2.2 Interface 

The basic conunon block ICONS (see Appendix h) which houses 
the necessary control parameters is created by subroutine .. 

3.2.2. 3 Input 

All the basic information which BDARPl needs for execution is 
requested and received by INPBD via the teletype or display screen 
and keyboard. The operator is queried for the following: 

1. Tape file no. 

2. Parity {0 or 1) 

3. 7 or 9 Track 

4. First line no. 

5. Last line no. 

6. First pixel no. 

7. Last pixel no. 

8. Channel no. 

9. Class value 

10. Epsilon value 

11. Kappa value 

12. Eight coefficients for registration (optional) 

3. 2. 2. 4 Output 

The above control parameter queries are displayed on the screen. 


3.2.2.S Storci^:5 Requirements 

Subroutine INPBD requires 615 words in. core. 


3. 2. 2. 6 D««cription 

Subroutine INPBD interacta with the operator to bring in the 
baaic control parametera for BDARPl execution, and defines them 
aa componenta of the vector OPTNS (aee Appendix A) which is part 
of the common block ICONS. 

3. 2. 2. 7 Flowchart 


3.2.2. 8 Liatinq 


(INPID) 



"BOUNDARY DETECTION 
PROGRAM" ENTER! 
TAPE FILE NO.-* 
PARITY (0 or 1)-* 
7 or 9 TRACK «* 
FIRST LINE N0.=* 
LAST LINE N0.»* 


I. 

2 

3 




RETURN 




ENTER EIGHT COEF- 
FICIENTS FOR 
REGISTRATION OR 
ENTER 999 AS THE 
FIRST COEFFICIENT 
COEFFICIENT 1 - * 




COEF. 

I - 999 


N 


SET COEFFICIENTS 
TO DEFAULT, OR 
"NO CHANGE" r 
VALUES 




|6, FIRST PIXEL NO.-* 

7. LAST PIXEL NO.-* 

8. CHANNEL NO.-* 

9. CLASS VALUE-* 

10. EPSILON VALUE-* 

1 1 . KAPPA VALUE- * 


* - Operator 
keys in value 
on Input device 


COEFFICIENT 2 - * 
COEFFICIENT 3 = * 





COEFFICIENT 4 - * ( 

? 

T" 


COEFFICIENT 5 - * 




COEFFICIENT 6 - * 




COEFFICIENT 7 - * 




COEFFICIENT 8 - * 




RETURN 


P'EhDV 


SUPROUTINE INPBO ^ L ' 

COMMON 1 CONS 1 O' 1 -4 ' . OPTNS* 1 T ' . I SET 
H < L.L NE 1 > CO TO lOl 

WR11E' 10 1 ' 

1 rORMrtT' ION, BOUNOrtR'i DETECTION PPOCRPM 

■:'8N . "I'ERSION l“, ' 

WFlTEv lO :' 

F ORNrt 1 ^ 20N . •' ENTER " ■ , . 23X , " I TAPE F I LE HO * •' ) 
Kfc HU ‘11^ OPTNS-, 2 > 

WRITER 10 21 ' 

. 1 FORMAT* 2?N, "2 PARITY‘0 OR l> «" ) 

RFhD 'll'* ORTHS* 3 > 

WRITE* 10 23> 

.:3 FORMAT* 23N. "3 7 OR 9 TRACK ^ 

REmD « 11 * OPTWS' 17 ' 

WFITE- 10,22> 

.'2 FORMAT* 27N. "4 FIRST LINE NO *" ) 

F'EHD *11* ORTHS*. 1 ' 

RETURN 
Ml * ONTIHUE 
WRITE* 10.3'. 

7 FORMAT* 2?:;. *’T* LhST LINE NO. 

REmI< *11* ORTHS' 2 
WRITE* 10.4* 

4 rnpMHT* 23::. "S first pixel no »'•;> 

REmD Ml* ORTHSC 3 > 

WRITE' 10. S ■■ 

N M.iRMh f M^/X , " 7 LAST PIXEL HO =" > 

FFhO Ml ORTHS' 4 .> 

WRITE* 10, e,* 

6 F0RMAT*'23X,"8 CHANNEL NO 
REAU * 11 > ORTHSC 5 ' 


*♦»»»" 


WKlTEaO*r) 

;• »- 0Rf1rtTi 23N/'? CU .S ' rtLUE 
k'ErtD U I ' OPTNS*. ts 
WRITEk10.8> 

s rORf1rtT.:2N,-lO EPSILON urtLUE 
‘in OPTHS*.'.”' 

HR I TEn 0 . 9 ' 

» OKri»^1 ». ••'ll KAPPA MALUE 


» tt 


» 


■ “ ■* 




1 1 


KfcrtD‘ 1 1 OPTNS*. 8 ' 

HR17E' 10-10’ . , ^«ririr»-rc»jTC 

f 'irMAt' - 10‘.. "ENTEP EIGHT COEPFK lENTS 

. ;o ;.”OP". .10:S'"EHTEP 999 AS THE FIRST 

tii.i 100 l- l-S 

iimE' 10 - n ’ I . . ^ 

H.RHmT- n;:. “COEFFICIENT ‘'.II. •• 


FOP REGISTRATION". 

COEFFICIENTS 


I ) 4 K 

f- LmD • 1 1 • OPTNS' > 

Mi if OPT NS’ -I ' 

1 f ' t HjF - ' 1 00 . 1 20 . 1 00 

Itin t.ONlIN'JE 

I ii I 10 1 ?.o 
1 ‘n I " ' 20 P M* 1 0 . 1 6 
.:mM i*f TNS’ N - a 0 0 
UP IN’:.' ? ' a 1 0 
mptn:'.« i 5 '= I 0 


. , is 

()i' 1’! i> ili ( ,i AlJ I'Y 


I '.ft ChLL Fi'NOT’ "'" • 

RETURN 

END 


PEmD<' 


3.2.3 SOFTWARE COMPONENT NO. PJAriDi 


3 . 2 . 3 . 1 Linkage 

Subroutine REAKD9 is called in overlay USER09 by subroutine INITN, 
and calls subroutines CON79, CONWD and RDTAPE (a system subroutine- 
which affects magnetic tape r«.£ding) . 

3. 2 . 3 . 2 Interface 

The control information from the header record, and the informa- 
tion needed to read the header record, is transmitted through 
the common block ICONS. 

3. 2 . 3. 3 Input 

The subroutine reads the header record on the data tape. 

3. 2. 3. 4 Output 

Error messages may be displayed to the operator if subroutine 
REAHD encounters ambiguities in the header information. 

3. 2. 3. 5 Storag- Requirements 

Subroutine REAi... r jquires 809 words in core. 

3.2. 3.6 Description 

The main purpose of subroutine REAHD is to read the header record 
from the designated file on the data tape. A conversion using 

CON79 or CONWD is requited to obtain doscrintive values. These cl( 
are tested and, if valid, are stored in the vector ID in the 
common block ICONS. If adequate information to process the data 
is not available, a message to that effect alerts the operator 
and the run is terminated. Under certain conditions, however, 
when only one or two parameters are in error, the subroutine will 
supply "standard" values for the one or two in error, and executior 




■ment s 


of BDARPl will be attempted. An appropriate warning will be 
communicated to the operator under this condition. 

3 . 2 . 3 . 7 Flowchart 


3. 2. 3. 8 Listing 


(REAHD) 


PAGR Ls 



SET UP BYTE j 
BEPERENCE TABLES 
IN XTBMP 

i MID ILIST J 


SET UP STANDARD 
HEADER VALUES 
IN ID ARRAY 


J 



USING BYTE 
REFERENCE TABLES, 
PLACE BYTE DATA 
INTO ID ARRAY 


/ 

I 

\ 


RETURN 




17 




,<7 

rehdv 

iSUHROUTINE RErtHD NOHD > 

COmON ITEMP ' LI ..Tv ID, IBVTEU7 IHD 

comoN ICONS ID m ■, optnsvid, iflac 

01 MENS I ON Irtv408OV. IfKZ),. I Be 3 .^ 

DATA IHD 0 

DATA LIST 5, 7. 11. n ,’. 3. 1, 4,. 4, S, 13.. 12,9,10,10.6,6/ 

DATA IBVTE 90.91 ,92,93, 102, 103, 104, 105, 106, 107, 108, 109, 1778, 

1785, 1786. 1787, 1738 
IP < IHD' 160, 20, 160 
20 NIT = 0 

IF < OPTNSv 17' GT S . NIT=1 
N - 4080 
IF'AR = OPTNSv 3 > 

CALL RDT APEC NIT. I A, N, IPAR, KSHR, .JCON? 

IP CNIT EQ 0> GO TO 25 
NZ=IA> 1 > 

CALL CONWD' NZ, IB> 

GO TO 29 

2 ':. IN' 1 = I A*: 1 > 

I N' 2 ' = I AC 2 > 

CALL C0N79 'IN, IB> 

29 IF IB' 1>> 70, 30, 70 

^;0 IF - - 1> 70, 35, 70 

NF’ITE • 10,535::- IB' 2 > 

rriF'NAT • i:;, " since first word * ■•, 13,", this record appears to 
PE DmTm instead HEADER, WILL TRY TO USE STANDARD UALUES.D 
f M » HOHD = 1 FOR 1-100, 2 FOR LARSYS AND 3 FOR 1100. 

^ IF NOHD - 2 > 40. 50. 60 



I 1ST LINtS - 33 


C TH 

60 
r T.:i..T 

.0 


/I 


•^r» 

* 

71^ 

i^e 


1LH6> = 500 
iD». r> s s 
ILX8> = 0 
» 1 

IDk lO't * 3 
1D‘ in = I 
ID < li'> = I 
GO TO 160 
GO TO 40 


READY 


GO 10^40 FOR LARSYS AUAILABLE 

Ik*MIt'"'eO e'^ Go 'tO*'??® «'«ILflBLE 

I~44 


T = 38 
1---1 
1-1+1 

1^' ' I -56) 73..?£.73 

I =g,35« 


» -'1776 

I 


CmLL ( 
DO 78 
fr:T-U 

IF . »•; 
IBVTEr 


OHWCKHZ. IH> 
H*1 .2 


- I BYTE'. L 
L )=IH' N) 


.» :< 


105 


L^l +l 
'‘UHTIHUE 

k r 71.110.110 

!■ 87 

L * 1 

I “ I + 2 


J 




1 <1 


1 

1 

'.05 
M ♦ 
1 10 
1 J'Ci 
1 .'^;i 


1 ‘10 
150 

1 t(j 


IF <1 - -,’5^ 90. 5. 50 

I ^ 1185 
i- = irre 
UK 1 = IrtC I ^ 

I ♦ n 

( ALL C0N7? C IN.. I0> 

IHO - I + 1 > 

NK 1 1 E '.10.. 930 ? U'l > 1 6 . I A< I ^ ^ I wn t i' i 
PUT UrtLUES FROM TAPE INTO BYTE 
no 100 N « 1 , 3 
K •' f , + 1 

]l 'rc 105 

IPiTE' L ' - IB' fO 
L = L ♦I 
•iOMTlNUE 

“ 11^1^ 00’ 110' 110 
NRITE 'lO.b05' »• , IBYTE<;l> 

FoPMmT *^. 1 , , . ' MON CAN K = " . I3> *' UMICH 19 I ARi'PP tu^ki" i a s 
TEyT^FOF' TNO-BVTE words AND STORE IN ID * 1*»> 

IF 1. - 16 * 130.. 130, 160 

N -= LI'iTTL ' 

L ^ L + I 
tjO TO 1 ji'O 

IWD - IbYTE' L> » 40OK + IBYTE<K’'» 

ID'M.' IND 
L ■- L + 2 
'jO [0 120 
IHD = I 

NPITE MO, 650 > ID 



C e50 

I %%t 


AL PA(;his 
1*0(11^ Q(fAUTV 


UrtLUES FROM TrtPE,*'. 

ic? SHOWS hemOer record hhs been REHO 

RETURN 

END 




REHD'.' 


3.2.4 SOFTWARE COMPONENT NO. 4 (XNITN) 


3. 2. 4.1 Linkage 

Subroutine INITN is called by the driver subroutine DRVF9 in 
overlay USER09 , and in turn calls user subroutines RE7ii ':» CONWD, 
and CON79 and system subroutines RDTAPE and SPACE. 

3. 2. 4. 2 Interface 

The common block ICONS transmits control information to INITN. 

3.2.4. 3 Input 
See 3 . 2 . 4 . 2 . 


3. 2 . 4 . 4 Output 
None 

3. 2. 4. 5 Storage Reguirements 

Subroutine INITN requires 443 words in core. 

3 . 2 . 4 . 6 Description 

Subroutine INITN begins by positioning the input tape to the 
requested file and reading the header record via subroutine 
REAHD. Additional error checks are performed on the header data, 
then the input tape is positioned to the record containing the 
first data line requested by the user. 

3.2. 4.7 Flowchart 

3. 2. 4. 8 Listing 


(XNXTN) 


/ 


START 

f 


'•x 

\ 


i 


y 

. DATA 
<1 IS ON PILE 

' - 1 
N 
I Y 



N 


^ — !7»pXce„.,; 

(SYSTEM SUB- 
ROUTINE) POSITIOH 
I TAPE TO PROPER 
‘ -FIIJ! 


1 


READ HEADER 
RECORD 


STORE HEADER 
DATA IN COMMON 
, BLOCK /ICONS/ 

I 


PERFORM HEADER 
DATA TEST 


I.' I-'. 


I’i )' ^ 



, ‘ 

i OUTPUT 

APPROPRIATE 

ERROR 

MESSAGE 


Pts 


K 

|f 

RDTAPE 


(SYSTEM SUB- 
ROUTINE) READ 
A DATA RECORD 







CON79 

CONVERT 
APPROPRIATE 
DATA TO 
LINE NUMBER 


WWiIL"!! 


CONWRT 
APPROP- 
RIATE 
DATA TO 
HrINE 

UMBER 


^-^THIS^ 
'^'WCORD HAS 
THE STARTING 
DATA RE- 
QUESTED 


) 




Space* 


(SYSTEM SUB- 
ROUTINE) BACK- 
SPACE ONE 
RECORD 



as 


RETURN 





oi!I(;i‘:al is 

Ul-' POOR CiCAfRTV 


READY 

SUBROUTINE INITN 

C OMMON ICONS/ ID 14 V. OPTNSa?).. IFLCl 
DIMENSION lAv406Ci>^ IN<2>/ IBCS) 

ISYSal 
IFLC1»0 
NRT - 0 
MIT = 0 

ir • OPTNSC 17),CT,3. ) NIT-I 
IFLSK = OPTNS<2> 

IFLGl = 1 
M » IPLSK - 1 
IF -sN) 50.50.40 
4fi N s N - 1 

CALL space <NIT.. IFLCl. NRT.. ISTAT) 

IF UO 50.50.40 
50 CALL REAHD a SYS) 

IANS s 1 

L44r HtADEP DATA TEST BY MINTER. 

I ONE channel must NOT BE LARGER THAN ONE RECORD. 

IF - ID' ? ' - 1> 80.80.75 
75 WRITE • 10.. 575) IOCS) 

CfM op •UM ERRORS USING lERR * lERR ^ 2 

S75 FORMAT • IX." FLAGS = 14,". INDICATES CHANNEL LARGER THAN 

"RECORD " ) 

ID*?. = 1 

START OF UIDEO DATA SHOULD BE GREATER THAN ZERO. 

00 IF *1D<, 1>.J 35.35.90 

35 IDMj = J 

f r»r MUriBER of data sets per. record is greater than zero. 

:*h IF aD':.9;> 95.95.100 

95 1 D* 9 i s 1 

r*tr rXPECT S BITS FROM ORIGINAL DATA IN BYTES. 

100 IF HDC?) - 3> 105.110.105 


M 


3.V 


I rOR ERROR SUr URR » lERR ♦ 4 

10*j WRITE U 0.600) 1 IV 7 ■ 

lOO FORMAT vis," NO >F blTS ■ 15 > 

I0v7' •-> 8 

I.M* PUciniON TAPE TO START OF REQUESTED DATA. 

1 U .1 ntM « OPTNSv 1 ) 

I WRITE V 10,610) NIT, ISTAT 

V *10 FORMAT VIS," READ DATA RECORD NEST. PARITY 15, " STAT-" I«‘ • 
IfTAT « 3192 
N 4080 

1,.'0 i.hLL RDTAPE vHlT, lA. N.. NIT, KSHRT, ISTAT) 

IF - NIT EQ 0) CO TO 121 

w:> lA' ie ) 

I ALL C0NW0<N2,IB ) 

IB- ? ''=IB< 2) 
i-.O 70 125 

L'l IN' 1 • = I A*. 47) 

JfF 2 • = Ia<43) 

I. mLL C0N79 'IN, IB> 

I, '.' IF IE'3 ' •• ITEM) 120,140,130 
1 '.u WRITE ■ 10,€30> IFLSK, IB<3) 

-. Ai FORMmT V1.S," ON FILE ”, 14," FIRST LINE IS”, 15) 

J40 HNIIS •• -1 

r all space '.NIT, NRT, MNUS, ISTAT) 

RETURN 

END 

REhDY 


3.2.5 SOFTWARE CONFONENT NO. 5 (CON79) 


3. 2. 5. 1 Linkage 

Subroutine 00^79 is called by eubroutinee INITN and REAKD in 
overlay USER09 and by RDLIN9 in overlay T9. 

3. 2. 5. 2 Interface 

Interface ia acconpliehed by one input argument and one output 
argument. 

3.2. 5. 3 Input 

The input argument IA is a two-word array read from 7-track tape. 

3. 2. 5. 4 Output 

The argument IB is a 3-word output array, one byte/word, right 
justified. 


3. 2. 5. 5 Storage Reguirements 
Subroutine CON79 requires 64 words in core. 

3.2. 5.6 Description 

Subroutine CON79 is designed to convert 7-track unformatted input 
data to formatted information in the form it originally appeared 
in a 9-track tape format. It is specifically designed to 
restore the data to its form as it appears on a Universally 
formatted classified tape. 

3. 2. 5. 7 Flowchart 


3. 2. 5. 8 Listing 


(C0N79) 


^ START 'j 



COtmWS DATA 


FROM 7-TRACX 
XNPUT TAPE 
BACK INTO 
ORIGINAL 


FORMAT 





1 

RETURN 


LIST tINfS - 33 


T 1 TLi CONr^ 

JS’l^'^OUTlNf COH79 
PROCiR«M»1EII-P«UL LiNvLfC i26-4S iOFTMRRf 

n^TC eroT SECTIONS 

OrtTE-SEPT 3 <1976 

PUNCTION-CON^RT 2 WORDS READ FROM 7 TRrtCK TAPE 

TO 3 MOROSvl BYTE WORD/ RIGHT JUSTIFIED) 

ENrtMPLE 

FROM WORD 1 OOWWWMMW 
WORD Z'QdZZZZZZ 
TO WORD 1 eeaeeeoe 

WORD 2 9^001^ 

WORD ? 00900909 

$0UPCE»<C0M?9 Ay 
ClBJECT»iC0N79 R> 


OOUUiiUUU 

O0VYYYYY 

MUWWWMUU 

MWU 2222 

22VYYYYY 


•'hLLING SEOUEHCE 
CmLL C0N79<; XA/ IB > 

tc^?l ^ track TAPE 

IB IS A 3-fcWRD OUTPUT ARRAY, 1 BYTE/WORO. RIGHT JUSTIFIED 


EHT C0N79 

E;:TD CPYL. FRET 

MPEL 


'. 0 Mr 9 


JSF t CP.L 
‘i T H 3 , 'iA^ *E 
LDw 0,FTSTR,3 
LDh 2,FT$TR^1,3 


LIST LINES - 65 
MOU 0,3 


JHP C0N03 
STN 0 TEMP 


PROCESS 1ST OUTPUT iVTE 

LON 0.0- 3 
LOrt irNSKl 
SND i . 0 
LON I . SMFT4 
MOOZR 0,0 
INC l.l,SZR 
JMP CONOl 
STh CTEMF 


LON 0,1,3 
LOA l.nPSKR 
NNO 1,0 

nous 0,0 
nouzR 0,0 
nouzR 0,0 

LON 1 TEMP 
AOU 1 0 
STN 01,2 


LOh 0-0,3 
LOA I - flASKR 
hHO 1 0 
LOA 1-SHFT6 
I f.ifn32 MO»CR 0,0 

IMC l,I,S2R 
JNP CON02 

LDa 1 . TEMP 
hOO 1,0 

'?Th 0.0. 


PROCESS 3R0 OUTPUT iVTE 

LOA 0,1,3 
LOA l,riA8KL 
ANO 10 
8TA 0,TEMP 
LOA 0,1,3 
LOA 1,MASK3 
ANO 1,0 
nOUZR 0,0 

nouzK 0,0 


PPOCES':. 2ND OUTPUT BYTE 

LDA 0-0,3 
LDA 1,MASK2 
AMD 1 • 0 
LDm 1,?HFT4 
Mfj'iZL 0,0 
INC l,l,S2P 


LOA l,TEf1P 
AOO 1,0 
STA 0,2,2 

LOA 3, SAME 
JSR 0.FRET 


I I IMH •' 


REAOY 


I.1S1 LINES - 69 


flASKl 000060 >CET BITS 10. 1 1 

M»4SK2 000017 .GET BITS 12-19 

N<^SK3 001400 iCET BITS 6.7 

MrtSKL 000377 i GET BITS 8-19 

177400 .GET BITS 0-7 
SHFT4 "4 

SHFT6 -6 

Sni.'E 0 
TEMP 0 

END 


3.2.6 SOFTWARE COMPONENT NO. 6 (CONWD) 

3. 2. 6.1 Linkage 

Subroutine CONWD is called by subroutine INITN ^md REAHD in USER09 
?ind by RDLIN9 in overlay T9. 

3. 2. 6. 2 Interface 

Interface is accomplished by one input argument and one output 
argument. 


3. 2. 6. 3 Input 

The input argument lA is one word read from 9-track tape. 

3 .2 . 6 . 4 Output 

The argument IB is a two-word output array, one byte/word, right 
justified. 

3. 2. 6. 5 Storage Requirements 
Subroutine CONWD requires 19 words in core. 

3. 2. 6. 6 Description 

Subroutine CONWD is designed to convert one 16 bit word to two 
8 bit words, right justified. 

3 . 2 . 6 . 7 Flowchart 


3.2.6. 8 Listing 


(CONWD) 



^^ETU RN 





^ Qij^, j 


r 


l IM LINES - 3? 

1JTLE CONWD 
LNT CONWD 
ESTD CP YL. FRET 
NREL 

1 i 1 rtRGUMENT INPUT 

iSRi? CPYL 



3 ' 

i 

SAVE 

PCC3 

1 

0. 

.FT5TR.3 ; 

GET 

ARGUMENT ADDRESS 

LD^^ 


FTSTP+1 .3 



MO'-' 

0. 

• 3 



1 PM 

Cl 

03 



1 Prt 

1 . 

. MrtSK 



hMD 

1 

.0 



.■Th 

0 

. 1 ’ 



1 pH 

0 

.0.7, 



MO' '••; 

: 

'1 • 0 i 

SWOP 

THE TWO BYTES 

LDh 

1 

. MH’r.L' 



nrc* 

1 

.0 



•:Oh 

0 

-0.2 



LDh 

'r 

. Shoe 



I'j.Ri? 

FRET 



MHS^ 


000377 

GET 

BITS S-15 

■vh'JE 

0 



i:md 





>' i t-tf 


33 



3.2.7 COMPONENT NO. 7 (RDLIN9) 


3. 2. 7.1 Linkage 

Subroutine RDLIN9 is the driver (main) routine in overlay T9. 
RDLIN9 calls the user subroutines ISET, CON79, and FRAME, as well 
as various system svdaroutines which read the input tape and 
create the temporary data file TDATA. After execution, RDLIN 
calls in overlay TM. 

3.2.7 . 2 Interface 

Subroutine RDLIN9 corranunicates with its associate subroutine via 

the common parameter block ICONS. 

3. 2. 7. 3 Input 

Subroutine RDLIN9 accepts input from the Universally formatted 
input data tape. 

3. 2. 7. 4 Output 

RDLIN9 creates a temporary data file TDATA on the system disk. 

3. 2. 7. 5 Storage Requirements 

Subroutine RDLIN9 requires 1115 words in core. 

3. 2. 7. 6 Description 

Subroutine RDLIN9 reads the classified data tape, oacks the 
classified data 16 pixels per word, and stores these data on a 
temporary disk file, TDATA. 

3. 2. 7. 7 Flowchart 


3. 2. 7. 8 Listing 


N 



"ZRKEGULAR 

FORMAT 

INDICATED" 


i, 

r" 

i 


(R0LIN9) 


START 


‘T 


INITXALZZE TEM^ 

?iNp POPF^ __ 

[ 

ZNXTZALZZS CONTROL 
INDICES AND 
CLEAR ARRAY 
TO BE PACKED | 

I 


N 




rdtXpe 



3 


PUT 

y 


CQN79 „.l 
RAW DATA CC»1- 
VERSION ROUTZNEI 
TO BYTE DATA 


J 


I 


T 


j 


[ CHECK DATA ' 

I BYTES FOR 
I DESIRED CLASS 


iJ'f''- /V 


r 


iW'Hne'-I 

ROCBSSED 


sCURRm LX 

^s^ROCESSE 

-^QUESTED 
LINES DONE 


iIewind and close 

TEMPORARY DATA i 
FILE TDATA USINGi 
SYSTEM SUBROUTINES 
'frnfl and FCLFL < 


p: 


ESTABLISH CORNER 
TICKS IN 
DRAWING FILE 


I ■ ■ 
I 

I 


PftNOV 

r575VEH"STJB- 

ROUTINE) BRING 
OVERLAY T3 INTO 
, CORE AND 
EXECUTE T3 

I 



BYTES 

gcv 

I ” 

SET INDEX 
TO NEXT BYTE 


j'7~' 

.'CU|REf5^ 


-sBYT_ ^ 


I ‘ T 




Tslr 


SET PROPER 
BIT IN TDATA 
TO 1 




END 


PAr.E , 


St* 


> 11 


,’I1 




Ki 


IER> 

1 .. 1 . 


IER> 


> GO TO 55 


I'lMENSION IN <2 

rS !£?¥! 0PTNS<17>; 

' UririON I BET A. N ^r1E <3) 

• UfinuN ISTAR. LN-NT. I END/ I 
data LNCNT. IEND 0.0/ 

NAME 1 I > = "TM" 
name c2> = "I" 

NAME V3) a 0 
U R 0 

'. ALL FOFFL <. "TOATA* 

CALL FOFFL < "TDATA* 

FT - 1 
Nil - 0 
.U" 

.If -2 

IF ' OPTM-:.*. 17> LT R 
N n 
J.i=^ 

If 1 

I PhP = I Dc 1 4 :• 

LINRC = 0 
1:ThT a 0 
NNCi:. =■• 0 

Du t.0 K = 1, 50 
1 f' ) = 0 
UNTINUE 

U 'IEND -I. . 

Ii'L':’. = OPTNSXt:) 

N ~ 4030 

I A/ N/ 

NPITE ''1 0.6 10,' <;iA<:iT>,. 

f OFMaT IX/ 5018 > 

NUL = OPTNS (4> - OPTNS <3,> + 


I A^. 4080^ 
IFLGl 


70/ 390/ 390 


IPAR/ NSHR/ I ST AT) 
IT s 1/100) 


1 



REftDY 

IF <NOL> 90 - 30.. 100 
NOL - ID <6> 

GO TO 115 

100 IF «.NOL - 1D<6.>.> 115, 115. no 

no WRITE < 10,615) N3L, I0<6) 

r.ir» KORmT(lX." WONT'MS," PIXELS PER LINE" WILL TPY” • 15 > 
NOL " ID<6> 

OPTNS <4> » 0 

11*;. IF aSTrtT ' 4'' 160, 140,. 120 

n o I END = lEND 1 

IF - lEND " n 140. 125, 390 
i:.5 WRITE aO, 620) ISTRT.. LNCNT 

t..O FORMAT MX." STATUS WORD =",I3,'' TOTAL LINES DONE IS", 15) 
14V.1 WRITE MO. 620^ ISTAT, LNCNT 
loO IF ID' S ;' -1) 170, 400, 400 

1.0 IhDD = MOD MFLG1.10) 

IF ' I ADD - 5) 200, 200, 130 
100 IF LG I = 5 - I ADD 
lOD = 0 
hO TO 220 
. 00 lOD « ID''4 > 

.•'..'0 ISThT = OPTNS-: 3 ) 

L - OPTNS-:; 5;;- 

IP = ID-;: 6.:- t -:l - l ♦ 100 ♦ ISTAT 

1 . ~ 0 

J 40 IhDD = 24 -:1P + MDC6) t IDC5)) t LINRC) 

IF - NIT EC! 0,- GO TO 245 

1Dh=ImDD 2 

IDh=1Dh+? 

inD=MOD< IOA/2 - 

l=IDA/2 

.■4. ' ( ALL LONWD-r lAM >, IB ) 

GO TO 285 


O '" foo ,;.' 


rA\< lOD s MOD UrtDD. '» 

ISTaT = 3 - lOD 
100 ^ MOD ». ISTrtT. ■ ' 

1»^DD - l^iDD 3 
1 =■ mOD ♦ 1 

U > lOD - 2> 260 250.. 260 

.‘.0 1 = 1-1 

.'60 IF -.1 - 4079'' 270. 270. 150 
. 70 IF '.IDiS'' - 1 '« 280, 410.410 
IN' 1 ' 18i I '' 

IN ' 2 • = 1 ♦ 1 ^ 

.'^LL I- OH 7? (IN. ie> 

. 7.. N = lOP ♦ 1 


fmu-?e in 8 print loop 
NPITE • 10. 780^ N. IN . I«DD,. I 
'.••-.O FOPMUT • l^:. 4016'' 

I ii.i 340 J s N . .1 J 

Ml ' lDi . - nwdv :. ♦ I 

t 1. + 1 

IF ' L - 16 •. 300,300,230 
- '0 L ^ I 

» T FT + 1 

■:i lO F'mUSE output ICLS . J . IB-:: .J ), I , I8< I > 
WF I TE* 10 . 777 'ICLi. ■ J . IBC J >, I , IA< I > 
777 FOPflAT' 51 10 • 

]F • ICLS - IB'. 340, 320, 140 
y,;’0 i’.hLL I-E.ET usua :-, L.) 

'.'N.i I..ONTINUE 
I OP * Gi 
I = 1 ♦ JK 

IF MIWDS - NOL> 345.345, 360 
34', IF c 1-4079) 346,346,350 

346 IF UD''0>-i .>347.410,410 



fifErtOY 


.'4r 


V6A 

/t.?. 

■<,V^ 

^yo 

<:'n;i 


I* ! •! 

C«;-‘C 

";ws 


IF CN1T> 280,280, 4 j; 

< IFLL'. , lO'* 

n.-J 3^*0' 

IFLul " 5 - IFLCl 


355 


362, 365 


INCNl = LNCNT . . 

L INRC = LINRC ♦ 1 
U3 <13> = kT 
leVT ••; 2 ♦ kT 

C^^LL FWTFL v 1 . IS . IBYT . lER > 
WRITE . 10,864) IBYT is 

‘ ■■''•" NO OF BYTES-", 
IF <LINRl ~ 1D(4S> 

‘ I - 1 
C*0 TO 240 
ISTrtT OPTNS < 2 ^ 

IF ‘LNCNT 
UNO = 1 
IK ' LNCNf- 
'.■•’INTINUE 

!• lER) 

1ER.> 

‘ > 

385, 395, 


I5,/,',<1X, 3018) 
365 


- 1ST AT) 
400^ 


OPTNSC 1 ) ♦ 1,05 
380, 370, 370 

0 390, 390 


CmLL frwfl 
'-mLL fclfl 
I-hLL kcnot 
IF • lEP • 


NP17E 

FOPNhT 

'•TOP 

1 
1 


10 -885 

‘ I 


385 
lER 

ERROR SET 


AT", 15," FROM WRITE 


•C-.Hl 

ML lNES=OPTNr*;< 2 • - OPTNS< 1 ) ♦ 
Vri«;<=NLINES 

FALL FRAME< XMAX, YMAX, X-SC, VSC ) 


rewind or CLOSE" 



C»U.L KRNOU ^NrtflE. IkK ' 

P^^USE FRNOU IN Rt tDLl HE FhILLU 

•too UHtl - 1 

URITE I to. 900' 1.K8 

^MUi I ORMAT IRREGULAR FORMAT INDICATED BY", 14) 

P‘ AD ». in 1 
l.-‘ • n 3‘.-0. 370. 410 
•110 ID' 8' " 1 

ICND - 0 
ULI TO 170 
tND 


REhDN’ 


3.2.8 SOFTWARE COMPONENT NO. 9 (ISET) 


3. 2 .8 .1 Llnkaq« 

Subroutine ISET it called by RDLIN9 in overlay T9. 

3. 2. 8. 2 Interface 

RDLIN9 conununicates with subroutine ISET via two calling arguments. 

3. 2 .8 . 3 Input 

The argument IS(KL) is the KLth word in vector IS. 

The argument L is the bit number in IS(KL) which needs to be set 


3. 2.8 .4 Output 

The argument IS(KL) is returned with the Lth bit set to 1. 

3 . 2 . 8 . 5 Storage Requirements 
Subroutine ISET requires 26 words in core. 

3. 2. 8. 6 Description 

Subroutine ISET sets the appropriate bit in a 16-bit word to 
indicate a pixel belonging to the class being examined. These 
words are the packed data which RDLIN packs into the temporary 
data disk file TOATA. 

3. 2. 8. 7 Flowchart 


3. 2 . 8. 8 Listing 


START 


01-' Ponii Ql’AUrv 


SET THE 

APPROPRIATE BITS 
IN A 16-BIT 
WORD TO INDICATE 
WHICH PIXELS , 
' BELONG TO THE * 
^LASS BEING EXAM. 


RETURN 


y 


U-’ t • 60 


TITL 

ENT 

ESTD 

NREL 

I ,.t r "jsR 

L0»4 

t4E0 

^DO 

MO‘<OR 



LDA 

ETm 

:.TA 

i .i ii.'F' 

LDh 

DCZ 

jrip 

LDM 

hOD 

:ta 

JMP 

f= ! 

IIO' Ip 
JMP 

htU' 

LDh 

■-^Tm 

LDh 

JiP 

■ h''E 

0 


0 

"Hi II 

0 

END 


13ET 

ISET 

CPVL. FRET 


ti CPYL 
3 ' Sf^uE 

0 (2FTSTR .3 
OUPLU 

0 1 

01 
1 i 

0.(!KTSTR^l .? 
O.ilFTSTR+l 3 
O.CONS 

0 CONS 
CONS 
RITS 
O.UttLU 
0.. 1 

1 . ' 'NLU 

Er^D 

1 . 1 
LOOP 
I ..UALO 
I ,(iFTSTR.3 
7 . ShUE 
i FRET 


REmDN 


3.2.9 


SOFTWARE COMPONENT NO. 9 (FRAME) 


3.2.9 .1 Linkage 

Subroutine FRAME is called byRDLIN9, and calls subroutine LINIT. 

3. 2. 9. 2 Interface 

FRAME receives format and scaling information through four input 
parameters . 

3. 2. 9. 3 Input 

Four calling arguments are input to subroutine FRAME reflecting 
format and scaling constraints. 

3. 2 .9 . 4 Output 
None 

3. 2. 9. 5 Storage Requirements 

Subroutine FRAME requires 347 words in core. 

3. 2. 9. 6 Description 

Subroutine FRAME computes the output frame size, generates four 
corner ticks for the plot file, and calls suliroutine LINIT to 
write these ticks in the plot file. 

3.2.9 .7 Flowchart 


3 . 2 .9 .8 Listing 


(FR\ME) 


START 


SET UP X,Y 
ARRAY FOR 
LOHER I*EFT TICK' 


PA(;f 

QVAiJ'l 


; LiNir 
PLOT LOWER LEFT 
TICK IN 
DRAWING FILE 


SET UP X,Y 
■ARRAY FOR LOW- 
ER RIGHT TICK* 

*- ■ , ...j 


LINIT j 
[plot LOWER ■ 
i RIGHT TICK IN' 
I DRAWING FILE 


SET UP x,y ^ 
ARRAY FOR I 

i'pper right TIC^ 


LINIT 

DRAWING FILE 


SET UP X,Y ARRAY 
I FOR UPPER 
L LEFT TICK 1 


[' ‘"LINiT ■ ■ 

' PLOT UPPER * 
LEFT TICK 
IN DRAWING Flu: 




RETURN 


OWEHsI ON^rSTvc 3^** ' 

ARM-0 5 
N< n-0 0 

y< l '-ARM »YSC 
SC 2 >s0 0 

‘ ■< 2 >= 0 . 0 
S<3>»ARM * KSC 
YC 3 )-0 0 

CALL LINIT<X.Y,3,0) 

XC I '»c XMAX-ARM ) ♦ XSC 
Y< 1 >»0 0 

‘ 2 >=KMAX » XSC 
Y<2>=0,0 
X< 3 >*X< 2 ) 
v< 3>=ARM $ YSC 
CALL LIMIT<X,Y.3,0> 

X< I >«XMAX » XSC 
X< 2 >»X( I > 

YC 1 '=< YMAX-ARM > t YSC 
Vc2>-YriAX * YSC 

3 >-< XMAX-ARM > t XSC 
V'3>*YC2J> 

CALL LlNITrx,Y,3..0) 

; :• 1 >=hrm ♦ XSC 
Y' ! )-YMAX t YSC 
.'c 2 '=Y< 1 > 

X< 2 >=0 . 0 

y/ 3 '>=Q Q 

'('• 3 ,»=< YMAX-ARM ) » YSC 
CALL LIHIT<X,Y..3,0> 
RETURN 
END 



3.2.10 SOFTWARE COMPONENT NO. 10 (LINIT) 


X 


Poun 


P.U;: 

O’ ■ 


3.2.10.1 Linkage 

In overlay T 9 subroutine LINIT is called by subroutine FRAME. 

In overlay TM subroutine LINIT is called by BDT9, ENDTST, CONALL, 
CLSTST, CONECT, and PINDAR. 

3.2.10.2 Interface 

Subroutine LINIT receives control information through the user 
conunon block ICONS, and through the System 100 common blocks BLK 
and MENUl. 

3.2.10.3 Input 

LINIT receives x,y plot arrays through its calling arguments. 

3.2.10.4 Output 

Subroutine LINIT transfers registered boundary plot string arrays 
to a System 100 drawing file. 

3.2J0.5 Storage Requirements 

Subroutine LINIT requires 313 words in core. 

3.2.10.6 Description 

LINIT accepts as input plot string arrays. Data registration is 
accoropxished at this point by transforming the x,y coordinates 
of the plot arrays using either the eight coefficients input by 
the user or the default (no change) coefficients. The standard 
expression for the data transformation is: 

Xt = (Aj^Xq + A2Y0 + A3) /Cl + A^Yq + AjYq) 

Yt = (AgXQ + A^Yq = Ag)/(1 + A^Xq + AjYq) 


where 

are the eight coefficients 
“ Initial or observed coordinates 
- Transformed coordinates 

After transformation, these registered plot string arrays are 
transferred to a standard System 100 drawing file. 

3.2.10.7 Flowchf irt 

3.2.10.8 Listing 




iINIT) 


START 


r * , Of pf}/-)n ^ i^ 

Perform 8 param- QLfA/JTV 

«ter transformation ^ ^ ^ 

using either 
coefficients input 
i by user or , 
default 
coefficients 


Send Arrays to 
Drawing File 


Return 




END 

'■Ub'ROUTlNE LINIT»>h N ■ “R'r ■ N ■ 1 TVff^'ADS' 

I' I MEN? I ON ►^RNvJOv ,RV no'. 

l . tMMUN I CONS I : 4 ' 6v 1 7 , I PLG 1 

! i.tMflUN ELK, N‘ 30 . I i, 30 10 > • Kt 30 ^ N P ID< > 

r luM purr'-' ‘ v*" - Lmoo UlilD ' 

I OUllWLtNfE IM 1 J vV’ li'.f 12) 


I oui.«LEnce <KX 4);il4> Kin> 

DESICNMTE FILE NUMBER '■=> ■'^'1 

nVF' EQ 9S'> QO TO 20 
1 1 - I . N 
• hKNi I 'I 
- MKY» 1 > 

1 ♦• Oi 12'' % RX ♦ 

I ' • O' ^^RX + 


' ••41 > . < N' 2 ^ . R2 > 


> 4- 
IF' 
111 .' 

k: : 

PV 

1.1 

hR-: 


0< 13> ♦ RY 
O' lOMiRY + 
OUSitRY 


: ••K'Vi, I . 12 L O' 14 itRX 
F'f.N UP COMMAND 
■.j-hPM' 1 
' 1 "mPY' 1 » 

‘ 11-1 

i-hLL RWi:0N'.P,4)2 ) 

PEN DiDWN CDMMNND 

! 1 1 K 

t.iO 10 I- 2 N 
' ! 1 -hF',' I • 
i’1“hPY' I ' 

' mLL PWCON' K4.2 ' 

I'l I iiNTINUE 

' .0 10 '4»j 

.0 f 11=31 

r.ii Lfi-JF E*®"C'F~F1LE COMMAND 
ChLL RWi.0N'r.K4)2 )• 

00 RETURN 


0< 1 1 > 
0< 16 > 


0 

0 


S^O 


A 




3.2.11 SOFTWARE COMPONENT NO. n (BDT$) 

3.2.11.1 Linkage 

Subroutine BDT9 is the principal routine in overlay TM, and calls 
the following user subroutines: FINDAR, FILL, READAT, CONALL, 
ENDTST , CLSTST, and LINIT9 . In addition, subroutine BDT9 utilizes 
the following system subroutines for drawing file manipulation: 
FOPFL, FCLFL, FDLFL, and FCNOT. 

3.2.11.2 Interface 

Subroutine BDT9 receives control information through the common 
block ICONS. BDT9 communicates with its associate subroutines 
via the common blocks Z,ZZ, and MAXPIL. 

3.2.11 . 3 Input 

Pixel data is brought in, line by line, from the disk file TDATA 
by subroutine READAT and placed in common block ZZ for processing 
in BDT9. 


3.2.11.4 Output 

While overlay TM is operating, BDT9 outputs a status message on 
the display device after each ten lines of requested data has 
been processed. In addition, BDT3 actuates the audible tone on 
the output device after processing is complete. 


3.2.11.5 Storage Requirements 

Subroutine BDT9 requires 9224 words in core. 


uli-iniNAL PAGR IS 
OK 1HM)R quality 


3.2.11 .6 Description 

BDT9 is the routine which identifies, from the input pixel 
information, boundaries of a classified area or areas within a 
classified image. It processes the input data one line at a time. 


identifying border pixels, and building plot string arrays which 
describe the limits of the classified areas. These plot strings 
are introduced into a standard system 100 drawing file through 
subroutine LINIT, which also accomplishes data transformation as 
specified by eight user-input coefficients, for registration onto 
any desired base. Ultimately, this drawing file is output on 
a magnetic tape which is used as input to the Gerber plotter, 
which creates the final registered boundary plot. 

3.2.11 .7 Flowchart 


3.2.11 . 8 


Listing 


(BDT9) 


■■'N 

START 


Initialize comnon 
Area for the 
Boundary 
Detection 
Routine 


A 

V , 
•~r 


! Find Irf t and 
right boundary 
pixels on a line 


Compute con- 
trol par am- 




__ PINDAR 

Connect seg- 
ments found 

appropriate 
arrays 




"No. of pixels 
per line ■ 
^XXXX" "No. 

■of lines to be 

proces^ed-XXXX" 


readat 

Read in NEPS 
lines of data 
from disk into 
array ipix 

t 

i 


Copy data from 
IPIX into 
array ipx 


FILL 

Fill in appro- 

Line 1 of IPX as 
defined by Epsilon 


Find upper 
boundaries of 
classified data 

for first line 
only 


findar 

Initialize X,Y 
vectors for each 
boundary 
detected 


CONALL 

Determine arrays 
I which belong 
to common group 
for connection and 
connect, them 
1 


CLSTST 

TeEermine which 
Iplot arrays are 
complete, or 
closed", compute 

‘pfJl 

who9e..a]^eas are 


J ENDS! 

I ficiently large 
'that they must be 
; segmented ‘ 

I ..J 


Find lower 
boundary seg- 
ments below 
present line 


.::al pagk 

1 vK)ll QUA!.; ■ • 




Connect segments 

.found to apprn- 
I^riate array, xf 

X,y arrays 


, Present 
line exactly 

j^|e by - - 


A 


6 '^ 


"XXXX Lines 
Processed" 





■> Last Y 

line done — 



Shift lines up 
one in both 
data image 
arrays 


RERDAT 

Read in a 
new line of 
data 


Copy new 
line into IPX 


: fill ; 

I Fill in appro- 
priate classified 
pixels in new 
line of IPX 
as defined by 
Epsilon 


CONALL 

betermine arrays 
which belong to 
consnon groups foe 
connection and 
connect them 


CLSrST 


Determine which 
plot arrays are 


complete, or 
c lo sed *' , compute 

areas are > Kappa 


I ENDTST 
Pomplete plotting 
of segmented 
areas remaining 


OK p, 

LINIT 

Place end-of- 
file mark on 
drawing file 


::al pack is 
qrAUTY 


A 



I/O Device 




EXIT 


(• EhM 


t OMMON M*^NF1L M.' - 
I OMMUN 1’ NCiRUP • h Rrt . ^>0 ^>0 • • hRPh’. • ^0 • ' ■ I ■=. I ZE^ "e > -. KT ‘ • ■ 

t )R.\\ ^0 > . rtK'i'^ 50 . L , NE VMrtN . NSC . V?C ■ i mPPm 
i OMMUN lPlXi,4 25<-:. "i, 1P;> 4 .25«. ' IIPX^EP- 

I. OMNOM ICONS 10^ '.4 V0PTNS» 17 •. IFLGl 
li’.Mfc-fJSION IhZ^25S> 

INIL'GEP mPPmVN.hPRhVV 
MMXuRP-bO 

M O r- 0 

i r.-<--oprNS» ;* '• 

» NPPn- ilPTNS' S '■♦0 1 
IBVTE-^CMD' 13- 

:!'^c=o 1 

I'Sl '-H 1 


' 1 

OE.r-. EP': 4 I 0 

ML. lr<fc>OPTNS'. 2 • - OPTHS- ♦ 11 

lU-;; =OPTMS- 4 > - OPTNS'S'* ♦ 1 1 
HP I TE ■ Ju . 'r <P: ONLINE S 
,Mh, ”NP0 

O'Ih: =-r<LlN£': 

' mll fpmmE' : :mmx . vmm: ; . ,xsc • N''^c '• 

NE LLM=0 

II ' NPPO GT 4 • WRITE' 10.2 ' EPS 
rnpMnT' ■ EPSILON "mUJE OF'.F? 3.' 

NT'S' . 

f-uPMHl' " NO OF PIXELS PEP LINE . 14 
" N" OK LINES TO EE PROCESSED =*V. 14. 
' ML L P UPFL' " TDnT m 2 . 0 . 1 E ^ 

IF' IE EO 0 > GO TO S 

HF J IE' ' IE 

FOPMnTMX." IE- ".14) 

fhir-.E EPPOP IN OPENiNi:; TDmTh in BDT3 


EXCEEDS PRESENT PROGRAM CONSTRNl 


PAGE IS 
GE POi'Ii QUALITY 


READY 


GO TO 990 
5 CONTINUE 

DO 7 1-|,NEP8 

CALL REAOATv lAZ, IBYTE ) 

DO 4 J2-1.NPV 
4 IPIX< 1 . J2>*IA2< J2) 

7 CONTINUE 
DO 8 I*1>NEPS 
DO 8 J*l,NPX 

8 IPX^ I. J)»IPIX< r J) 
lREAO»NEPS 
CALL FILL 
N«e 

NGRUP»e 
IFL*0 

00 10 lA-l.MAXCRP 
nSIZEk IA)«0 
10 ISI2E<IA>»e 
FIND UPPER BOUNDARIES ABOUE FIRST LINE ONLY 
DO 100 IA-l>NPX 

if>' ipx<i,ia>> ieo.io0>2o 

:-'o AX=iA-i 
HY«0 
BX=IA 
BVaCi 


CALL FINDAPC AX; AY>BX.BY.0' 

I on i:iJMTmUE 
LI ME =>6 

f I HD LEFT AND RIGHT BOUNDARY PIXELS ON A LINE 
TORE LIME OEGMEMTS IN APPROPRIATE ARRAYS 
IIU LIME=LIME+l 
ITl = l 

110 M1»IT1 


5*^ 


M g / 7 J KIBtiUftXf 


READY 


00 20e IA«N1.NPX 
IF< IPX(. 1>1A)> 2O0«30e>i2d 
IJ0 AS-IA-1 
AYaLlNE-l 
9X*IA-l 
BY-LINE 

CALL FlNOARv AX>AY.eK.eY.e> 
DO 150 16«1A.NPX 
IP^ 16 EQ NPS) CO TO 125 
lFaPX<l.lB^) 130. 130. 190 
12tS IFUPXU.IB)) 130. 130. 126 
126 AX* IB 

AY»LINE-1 

BX-IB 

BY*Llf« 

GO TO 135 
130 AX«I6->1 
AY-LINE-1 
BX-IB-I 
BV-LINE 

13^ CALL FINOAR< AX.AY.BX.BY.0) 
IFf 16 EC NPX) GO TO 2l0 
m-lB 
GO TO 115 
J'iO CONTINUE 
CONTINUE 


COf^TINUE 

TEST FOP ARRAYS NOT CONTAINING ARRAYYC 1 . MAX >• 
lF^MOD(^Lir«,KZ) NE 0) GO TO 290 
NNN-0 

•V20 IPROB*0 

DO 223 IG-l.NCRUP 
1G1-1S1ZE< IG> 


LINE 


OKIGIN'ap^ pack I," 

OP Pool; (,'PA|,ITV 



READY 


223 CONTINUE 

CALL CONALL< IPROB) 

CALL CLSTST 

IF( IPROB. EQ n GO TO 220 
CALL ENOTST 
290 CONTINUE 

FIND LONER BOUNDARIES BELOW A LINE 

T 

DO 300 lA^I.NPN 
IF( 1SKP> 291.291.401 

231 IPX< l.IA>,EQ IPX<2.IA)> CO TO 300 
1F< lA EQ NPX) CO TO 299 
IPX1=IPN<IIA> 

IPX2«IPX<2.1A> 

IPX3«IPX< I . lA-M > 

IPX4*IPX<2. IA4-1 > 

IF< IPX2.EQ, IPX4) CO TO 299 
IFUPXl .EQ IPX3>C0 TO 299 
IFCC’IA-D.EQ.NPX) CO TO 402 
IPX5=IPX< l.IA^2> 

IPX6bIPX<2.IA4-2) 

IFUPX6 EQ IPX4> GO TO 402 

IF< IPX3.EQ IPX5> GO TO 402 

IFi IPXl EQ 1 ANO.EPS GC 1 414> CO TO 410 

IFUPXl EQ 0.AN0.EP3.LT.1 414> CO TO 410 

AX* I A 

AY*LINE 

BX=IA-1 

eY=LIWE 

CALL FIHDAP<AX..AY>BX.BY.2) 

AX*Im+1 

HY*LINE 

ex=iA^2 


ORIGINAL PAGE IP 
OF POOR QUALITY 


4<?l2 


READY 

iV*LINE 

CALL FIN0AR<AX.AV.BK,BV>2> 

AN«XA 

AY-LINE 

BY«LINE 

CALL rii'0AR<'AX,AY,eX>8Y,4) 

ISKP«2 
GO TO 300 

IR IPXI EG 1 AND .EPS LT 1,414) GO TO 415 
IFUP.Xl EQ 0 AND EPS CE 1 414) CO TO 415 


4J0 AK-IA 
AY=LINE 
BKelA-M 
BYaLINE 

CALL FINDAR<AX,AY,BX.8Y,2) 

AM=IA-1 

A.VUNE 

BX“iA 

BY=LIN£ 

CALL FINDAR<AX,AV,BX,.BY,2) 
ISKPel 
GO TO 300 
415 AX*Im 
WY=L lr€ 

BX=IA-l 

BY-LINE 

CALL FINDhP<AX.AV,BX.BY,2> 

hX»IA 

AV=LIHE 

BX=^IA+1 


BYSLIME 

CALL FI N0AR< AX .. AY - BX . B Y . 3 ) 


READY 


ISKP«l 
CO TO 300 
293 AX=IA-1 
AY*LINE 
BX=IA 
BY-LINE 

CALL f I NOARC AX > AY . 6X . BY .. 1 > 

GO TO 300 
401 ISKP=ISKP-1 
300 CONTINUE 

IFCMXA LT 20) GO TO 308 
WRITEC 10,307) 

jO; FORMATUX." THIS CLASS TOO DENSE TO PROCESS 
>2X, "RETRY PROGRAM USING A SMALLER SPAN OF 
GO TO 990 
70S CONTINUE 

IF<MOD(LINE,10) NE.0) GO TO 305 
WPITEC 10,306) LINE 
•^06 F0PMATaX,I4," LINES PROCESSED") 

305 CONTINUE 

IF' LINE GE .NLINES ) GO TO 999 
SHIFT LINES UP ONE IN BOTH ARRAYS 
MEP=NEPS-1 
00 310 Isl.NEP 
DO 310 J=I,NPX 
IPIXa, J)«IPIX< !♦!, J) 

IPX<I,J)= IPX<I + l,J) 

710 CONTINUE 

PE AO IN NEH LINE 

IF< LPEAO GE NLINES) GO TO 500 

LREAD=LREA0+1 

CALL PEAOATC. lAZ, IBYTE ) 

DO 320 JZ-l/NPX 


A SECTOR THIS large 
PIXELS 'LINE” > 


' ' riNJAL PAGE IS 
. ! X:; r'7M ITY 


t 


32e 

900 

501 

600 

700 

CALL 


Q99 

1000 


750 

300 

801 

890 


1PIX<NEPS«JZ >«IA2< JZ> 

GO TO 600 
00 501 J-l»NPX 
IPIX<NEPS.J>-0 
CONTINUE 
DO 700 J*1/NPX 
IPX< NEPS> J )«IPIX< N|PS/ J 
FILL WILL BE INSERTED HERE 
CALL FILL 
CO TO 110 
NNN=l 
IPROB*0 

CALL CONALLUPROB) 

CALL CLSTST 
CALL ENOTST 
DO 800 J-l/NGRUP 
I2»ISI2E< J) 

IF<1Z> 800 800 >750 

IF< IPROB.EQ. 1 > GO TO 1008 

GO TO 801 

CONTINUE 

CONTINUE 

CALL LINIT<ARX.ARY. Il/99> 
CONTINUE 

CALL FCLFL<2/IE) 

CALL FDLFLC"TOATA". IE> 

CALL FCN0T<"<7>"> 

CALL OURLYt. 1 , XER ) > 

PAUSE OURLY ERROR-NO RETURN TO 
END 


TO PROCl OF 
SYSTEM 101 


SYSTEM 101 


FF-hDY 



3.2. 12 SOFTWARE COMPONENT NO. 12 (READAT) 


3.2.12 .1 Linkage 

Subroutine READAT is called by subroutine BDT3, and calls 
subroutine IGET. 

3.2.12.2 Interface 

READAT transmits pixel information through the following two 
calling arguments: 

lA - vector containing one line of classified pixel indicators, 
unpacked to one pixel per word. 

IBYTE - number of bytes/line to be read from the temporary data 
file TDATA. 

3.2.12.3 Input 

Subroutine READAT reads in bit images of line data from the data 
disk file, TDATA. 

3.2.12.4 Output 

An error message may be displayed if a disk read error is 
encountered. 

' L PA*"’ 

PUUK ' 

3.2.12.5 Storage Requirements 

Subroutine READAT requires 125 words in core. 

3.2.12.6 Description 

Subroutine READAT reads in one line of packed pixel data from 
TDATA, unpacks the data into array lA using subroutine IGET, and 
transfers this line of data to subroutine BDT3. 


Z, 2. 12.1 Flowchart 


3. 2. ] 2. 8 Listing 


SUBROUTINE RE«OAT< IR, IBYTE) 

OIPCNSION IRRVU6)>IA<256) 
lUOS ■ IBVTE /> 2 

CrtLL FROfU 2, IRAY, IBYTE. IBYTR, IE > 
IFUE.EQ.B) GO TO 12 

PmJSE DISK READ ERROR IN SUBROUTINE REAOAT 
12 CONTINUE 
IPT«0 

DO 50 I«1>IMDS 
DO 40 J»1.16 
L*J 

1T*IRAY< 1 > 

CALL 1CET< IT,L) 

IPT-IPT ♦ 1 
IA<IPT >*1T 
40 CONTINUE 
50 CONTir«JE 
RETURN 
END 

KchDV 
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3.2.13 SOFfWARE COMPONENT NO. 13(IGET) 


3.2.13.1 Llnkaq« 

Subroutine ICBT it ctlltd txclutivtly by tubroutine READAT. 

3.2.13 .2 Inf rftet 

Communication with READAT it accomplithed through two calling 
arguments . 


3.2.13.3 input 

Subroutine READAT requests the status of the Lth bit of word I 
from subroutine IGET. 

3.2^3 .4 Output 

Subroutine IGET outputs the status of the Lth bit for READAT. 
3.2.13.5 Storage Requirements 

Subroutine IGET unpacks the bit data read from the disk data file 
TDATA into subroutine READAT. 

3.2.13.6 Description 

Subroutine IGET unpacks the bit data read from the disk data 
file TDATA into subroutine READAT. 

3.2J3 .7 Flowchart 
3.2. 13.8 Listing 

mmmmmmmrnmmmmmm 


(IGET) 



I 


Unpack the 16 - 
eit data words 
which KiiADAT 
extractod from 
the temporary 
data file tdata 
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I 






IS 


READY 


oiug.::al i- 

Qp VOUll 


TITL 

I GET 

ENT 

ICET 

EXTO 

NREL 

> 

CPYL. FRET 

JSR 

a CPYL 

?TA 

3.RETN 

L.OA 

0.eFTSTR+1.3 

aTA 

O.CONS 

MEG 

0.1 

ADO 

0.1 

MOi»OR 

1 . 1 

DSZ 

CONS 

JMP 

STIR 

JMP 

MSK 

HO‘JR 

1.1 

JflP 

POOL 

LOA 

0.«FTSTR3 

£TA 

l.#FTSTR^1.3 

Ar<0 

0,1. SZR 

JMP 

DOUT 

LDA 

1.2ER0 

•' TA 

l.eFTSTR.3 

JMP 

BACK 

LDa 

1 .ONEl 

STA 

l.eFTSTR.3 

LDA 

3 . RETN 

JSR 

e FRET 


0 

y 

I 

END 


3.2. 14 


SOFTWARE COMPONEHT NO. 14 (FILL) 


3.2. 14.1 Linkage 

Subroytine FILL is called exclusively by subroutine BDT9. 

3.2.14.2 Interface 

Communication of data between subroutines FILL and BDT9 
accomplished through the common block t%. 

3.2.14.3 Input 

The data block IPIX enters subroutine FILL via ZZ. 

1.2. 14.4 Output 

The data block IPX exits subroutine FILL via ZZ. 

3.2. 14. 5 Storage Requirements 
Subroutine FILL requires 584 words of core. 

3.2.14.6 Description 

Subroutine PILL redefines appropriate pixels as classified to 
facilitate connectivity of "close" groups. The user defines the 
criteria for "closeness" via the input parameter Epsilon. 

3.2.14.7 Flowchart 


3.2.14.8 Listing 


(FILL) 


Q SMrt ^ 

G«t Ont Pixel 
On the Present 
Line 


Initialize Indices for 
Distance Tests as Defined 
By Epsilon and Pixel Number 



Change all Pixels Between 
Present Pixel and Reference 
Pixel to "Classified" 



N 


© 




rcaqv 

SUBROUTINE FILL 

COMMON 22 IPIX(4.256). IPX<4.256>.NPX/EPS 

N-EPS 

L*l 

DO 100 IPslNPX 
IFvIPIXU.IP> EQ 0> CO TO 100 
LFP-IP-N 

IF* LFP LT 1 > LFP-1 
IRP»IP^N 

IFURP GT NPX> IRP-NPX 
IBR*L^N 
DO 20 J«L,IBR 
DO 10 I«LFF,IRP 

IFO EO L AND I LE IP) CO TO 10 
IF‘ IPIX4 J. I )> ie> 10, n 
JP I x*='' I- IP )f *2 ♦ <J-L'***2 
P 1 XDST -SQRT< FLOrtTUP I X > ) 

IF* PIXDST GT EPS) GO TO 10 

IF- IhBS' I-IP) EQ lABSOL)) CO TO 18 

IF‘> I-Ip) 12. 14. 13 

IPLU&sI+l 

DO IS II»IPLUS.IP 

IPX' J. II >«i 

GO TO 14 

IMIfl*I-l 

DO I*-: II =IP.IMIM 
ip;y J II )=i 

IF* < J-L > LE 1 ) GO TO 10 

LPLUS=L+1 

DO ir JJ*LPLUS/J 

IPX'' JJ, 1P)»1 

GO TO 10 

IF* I-IP) IB. 14.21 


7i 


01 Oi OJ CM 


RETilRH 

EHO 


19 IPLU»I^l 

1PM* IP- I RERDY 

IF<aPM-IPLU) LT.0) GO TO 10 

Jjsj 

DO 30 II-IPLU.IPM 

30 IPX<JJ.in»l 
GO TO 10 
21 IPPL*IP^1 
IM*I-1 

IF( ari-IPPL).LT.0> GO TO 10 
JJ=L 

DO 40 II*;PPL/IM 

JJBJJ+I 

40 IPXc JJcII>»l 
10 CONTINUE 

20 CONTINUE 
J.00 CONTINUE 

IF<N.LT.2) CO TO 300 

NPXXeNPX-N 

DO 200 IP-l.NPXX 

1F< IPIX<2. IP> EC 0> GO TO 200 

IRB»IP+N 

IPp.IP+2 

DO £20 I»IPP,IRB 

IFUPIX''2* I ) .EQ 0 ) GO TO 220 

IPl=IP+l 

IR1=I-1 

DO 240 JsIPl.IRl 
40 1PX<2.J>-1 
£0 CONTINUE 
00 CONTINUE 
00 CONTINUE 
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3.2. 15 SOFTWARE COMPONENT NO. 15 (PIIIDAR) 


3.2. 1^1 Linkage 

Subroutine PINDAR is called by subroutine BDT9 , and calls 
subroutines CONECT, AREAl, and LINIT9. 

3.2.15.2 Interface 

Subroutine FINDAR receives control information via common blocks 
Z and MAXFIL (see Appendix A), and via five calling arguments. 

3.2. 1 5, 3 Input 
None 

3.2. 1 5. 4 Output 
None 

3.2. 15.5 Storage Requirements 

Subroutine FINDAR requires 693 words in core. 

3.2. 15.6 Description 

Subroutine FINDAR accepts as input a boundary line segment, finds 
the plot string array, if any, to which the segment connects, and 
adds it. If no such array exists, new arrays are formed initia- 
lizing on this segment. 

3.2. 15. 7 Flowchart 


3.2. 1 5. 8 Listing 


MNUA 








READY 

SUBROUT I NE F I NDAR< XA . YA . XB . YB . I TYPE ) 

COMMON /MAXFIL/ MXA 

COMMON '2a NGRUP.. ARRAYX< 50. 50 ). ARR«YYC 50. 50 ) . ISI2t» 50 ). AS 1 26 ‘ h 

. ARN< 50 > . ARY< 50 ^ . L I NE . YMAX . XSC . YSC . KAPPA 

INTEGER ARRAYS. ARRAY Y 

MAXGRP=50 

IPASS*0 

IF<ITYPE-2) 9.9.210 
=> IF( NCRUP> 200.200.10 
10 00 100 1 A- 1. NGRUP 
n®ISI2E< lA) 

IFi' 11-1 > 100.100.11 

n DIFl=XA-ARRAYX<IA.ll? 

IF<ABS(DIF1>.CT 0,01) CO TO 100 
D I F2s YA“ARRAYY< lA. 1 1 > 

IFi ABS( 0IF2 ) . CT 0 01 ) GO TO 100 
IHOLD^IA 

IF< Il-l ) 45.45.12 
1-. nM=Il-l 

■;0=hRRAY 5« lA.IlM) 

.0«ARRAYY< lA.IlM) 

IFvABS<XO-XA),GT 0 01 ) GO TO 25 
I F< aBS< XA-XB > . GT 0 01) CO TO 25 
GO TO 46 

IF<'ABS' YO-YA> CT .0 01) CO TO 45 

if<hbs<:ya-yb).gt. 0,0 i ) go to 45 

GO TO 46 

45 lSI2EaA)=TSI2E< lA) ♦ 1 
I1 = ISI2E< Ih ) 

46 ARPAYXC lA. II >aXB 
ARRAY Y( 1 A. 1 1 )*YB 

ITA I TYPE- 1 ) 902.902.900 
U.10 CONTINUE 


RE«»V 

iF(iPASS) 101^ 101/ zee 
101 ipa:$s«i 

1F;ITYPE-1> 110/110/200 
lie TEHP«XB 
XB«XA 
Xrt-TEMP 
TEPIP*YB 
N'B=YP 
Yrt»TEMP 
GO TO 10 

200 IF(IPASS) 210/210/201 

201 TEMP»XA 
XH»XB 
XB=TEMP 
TEMP=YA 
YA*YB 
VB«TEMP 

210 DO 300 IA=l/f1AXGRP 

1F( I3IZE< IA>> 220/220/300 
22*J APRAYXC I A / 1 )»XA 
APRAYV< I A/ 1 )«YA 
hRRA*. '. « I A / 2 )-XB 
hPPAYY< IA/2>*YB 
ISI2E< IA)*2 

IF- I A GT.NCRUP) NGRI."'*IA 
IHOLD=IA 
CO TO 900 
700 CONTINUE 

ri:tA = MXA ♦ 1 
MPITE< 10/5) LINE 

FOPMAT<20X/ 'ALL ARRAYS FILLED AT LINEM4> 
GO TO 990 

y00 IF<ITYPE-3> 901/901/990 



901 CALL CONECTCIHOLO) 

902 00 969 IA«1.NGRUP 


NU>ISIZE< IA> 

IFCNU LT 49> GO TO 969 
DO 920 JK«1.NU 


ARNXJK' )=ARRAVXaA JK) * XSC 

920 ARY< JK .)■< VriAX-ARRAYY< I A> JK > ) 
CALL AREA K I A. AREA) 

CALL LINIT<ARX.ARY.HU0> 
ASI2E< lA )>ASIZE< lA )<^AREA 
ARAAYX< I A, 1 >«ARRAYX< IA>NU ) 
ARRAYYt I A, 1 )*ARRAYY< lA/NU) 
I£I2E<IA)sl 

989 CONTINUE 

990 CONTINUE 
RETURN 
END 


»YSC 


READY 



3.2. 16 SOFTWARE COMPONENT NO. 16 (CONECT) 


3.2.16.1 Linkace 

Subroutine CONECr i.s called by subroutine FINDAR, and calls 
subroutines LIMT, AREAl, and JOIN. 

3.2.16 .2 Interface 

SMbroutine CONECT receives control information through corumo;'. 
block L (see Appendix A) . 

3 . 2 J.6 .3 Input 
None 

3.215 .4 Output 
None 

3.216 .5 Storage Requirements 

Subroutine CONECT requires 435 words in core. 

3.2.16.6 Description 

Subroutine CONECT accepts as input a particular plot string 
array and forces immediate connection with the appropriate other 
plot string array. 

3. 2.] 6. 7 Flowchart 


3.2.16.3 Listing 






(CONECT) 



Compare Specific! 
Plot Array j 
With Others I 

I 

— I , .,1 i 



With Another 



i 


i 


READY 


Iki 


SUBROUTINE CONECTUH) 

COMflOH /'Z/ NCRUP^ARRAYX< 50 / 50 >.A«RAYY< 50 . 
. ARX< 50 > . ARV< 50 > . L I NE . YUAN , X 8 C . Y 8 C / KAPPA 
I NTECER ARRAVX > ARR AY V 
IB«1SIZE( IH> 

XA«ARRAVX( IH/IB) 

VA»ARRAYY( IH> IB > 

IF^NGRUP) 90 B/ 909 / 1 O 
00 100 I* 1 >NGRUP 
IFC 1 EQ IH> GO TO 100 
I 1 -ISIZE<I> 

1 F< II LT I > CO TO 100 
0 IF 1 *XA-ARRAYX< Ml > 

IF(ABS< 01 Fl>.CT 0 01 ) CO TO 100 
01 F 2 -YA-ARRAYY<Ml> 

IF<ABS<DIFZ) CT 0 01 > GO TO 100 


1H2-I 
GO TO 102 
100 CONTINUE 
GO TO 909 


10Z IB2*rSIZE<IH2) 

IFMB2-1 ) 909/200*900 
J'UO J»IB^1 

00 300 I-l/IB 


JsJ-l 

hRX'. I >«ARPAYX( IH/ J> 

300 wRY' I >*ARRAYY< IN* J ) 

00 406 I>1/IB 
ARRAYX< IH/ I )»ARX< 1 ) 

400 ^iRPAYY' IH. I )*ARY< I ) 

DO 500 1*1 /IB 
ARXa >=ARRAYX< IH/ I ) * XSC 
*=/00 APY< r>»<YMAX-ARRAYY< IH, I )) ♦ YSC 


50 


)/ 


ISIZE' 50)/ASIZE' 50 



CALL LlNlTCARXiARY/ IB>e> 

CALL AREA KIH. AREA) 
ASI2EaH2»ASI2E<lH2) > AREA 
ARRAYX< IH2, 1 >«ARRAVX<; IH, 16 > 
ARRAYVC IH2. 1 >«ARRAYY( 1H> IB) 
I3I2E< IH)«0 
CO TC 909 

'^00 CALL JOINUH. IB. IH2. 162.3) 

90^ RETURN 
END 




3.2. 17 SOFTWARE COMPONENT NO. 17 (CONALL) 


3.2J.7 ,1 Linkage 

Subroutine CONALL is called by subroutine BDT9, and calls 
subroutines JOIN, AREAl, and LINIT. 

3.2. 1 7. 2 Interface 

Subroutine CONALL receives control information through common 
block Z (see Appendix 1) and one calling argument. 

3.2. 17. 3 Input 
None 

3.2. 17. 4 Output 
None 

3.2.17.5 Storage Requirements 

Subroutine CONALL requires 513 words in core. 

3.2.17.6 Description 

Subroutine CONALL determines which plot string arrays should be 
linked or connected, and how they should be joined (ordering), 

3.2.17.7 Flowchart 

3.2.17.8 Listing 


I 


(CON ALL) 


Start 


Get One 
Plot Array 


^ ' Leader End of 
Array connects with Leader 
End of Another Array 



' Leader End cf 
Array Connects with 
Trailer End of Another 
Array 


Trailer End of 
Array Connects with 
Trailer End of Another 
Array 


JOIN 

Join I'lot Arrays' 
Appropriately 


^6' 


X- 

c 






Boundciry 
Btrinq ifi qettinq 
iar j 


- 

l.INIT ' 

Hot x,"y~ '~1 
arrays in I 

drawing fiiu ‘ 


AREAl 



Compute 

Area 


RE«JY 

SUBRDUTINt COHAtUlPROB) 

COMMON yZ' NCRUP>ARRPY><<50.50)>A|RAVW50.50 
. mX< 50 > . AR V< 50 > . 1 1 NE , YMAK . KSC . V8C . KAPPA 
INTEGER ARRAYK.ARRAYY 
00 200 J«1/NGRUP 
IS*ISI2E< 

IFi IS-l ' 200.200. 10 
le DO 100 I-l/NCRUP 
IFU EO, J) CO TO 100 
IS2=ISI2E< I ' 

IFUS2-1 100.100.20 
IND-I 

H*^k«RRAY>« J. 1 ' 

,'W»ARRWYY< J. n 
,X8*ARRAYX( 1 . 1 ) 

YfisARRAYY< I . I ) 

22 DIFI-XA-XB 

IF<ABS<.0IF1 > CT 
DIF2«-YA-YB 

ABS<DIF2 ’ GT 
IFR0B«1 
.t«* J 
i SM® C 
I A=1 

I'%’A=IS2 

:,hLL J0IN< JA. iSM. lA. IS2A. INO> 

1S*ISIZE< JA) 

I- JA 

1F» I-r. LT 24) GO TO 24 
DO 2? I J*I. IS 
hP'// I J )*ARRAYKC J , IJ ) » XSC 
J ^ I J >*.: Yf1AX-ARRAYY< J. IJ ) > * YSC 
.'ALL UINIT<ARX.ARV. IS.0) 


0.01 ) GO TO 25 
0,01 ) GO TO 35 


^7 


■,ISI2E^50).ASIZF' V 


C^iLL AREAUJ,AREA? 

«SI2E< J)«ASI2E< J> ♦ AREA 

CO TO 235 

AblZEv IA)*0. 

ARRAYK< lA. 1 >«ARRAVS< J, I > 

ARRAVY< I A. 1 >»ARRAVY< J, 1 ) 
iSlZ¥.< 1A>«1 
^35 ’SI2E<J)«1 

ARRAYXv J . 1 >«ARRAYX( J, IS > 

ARRAYYt J, 1 )»ARRAYY< J. IS > 

GO TO 200 
25 INO=INO+l 

TO '.20.30>40.50.1O0).IND 
30 XB*«RRAYX< I. IS2) 

VB= ARRAY Y< I . IS2 ) 

GO TO 22 

40 M««ARRAYX< IS> 

YA*ARRAYY< J. IS ) 

GO TO 22 

50 XB=HRRAYX< 1 , 1 ) 

YB»ARRAYY< I , I > 

GO TO 22 
300 CONTINUE 
2oO CONTINUE 
RETURN 
Er<D 


HiV,' 


3.2. J.8 SOFTWARE COMPONENT NO, 18 (JOIN) 


3.2.18.1 Linka ge 

Subroutine JOIN i3 called by subroutines CONECT and CONALL. 

3.2.18.2 Interface 

Subroutine JOIN receives control information thro\ign coironori 
block z (see Appendix A) . 

3.2.18 .3 Input 
None 

3.2. 184 Output 
None 

3.2.18.5 Storage Requirements 
Subroutine JOIN requires 358 words in core. 

3.2.18.6 Description 

Subroutine JOIN connects plot string arrays as determined by 
subroutines CONALL and CONECT. Arrays which are no longer 
needed, i.e., whose coordinates have been linked to another 
array, are flagged for reuse. 

3.2.18.7 Flowchart 

3.2.18.8 Listing 




f 

I 


n 


(JOIN) 





1 




i 

i 




i 


i 


12 


14 






2 A 

70 


SUSROUTINE J0IN< J, IS. I . IS2, U«) 

OIMENSION rtTK<50).iTY<5i> 

COMMON ^2^ 50> 90 MtRAYYC S0J ) ■ I fi 1 7Pi *iA *. ^ct7Ci *■ 

INTEGER flRRrtYN,«RR«YY 

IFC INO ME 2 > CO TO I 

IT«J 

J*I 

I. IT 

IT=»IS 

IS*iS2 

iS2=IT 

GO TO < 10,30,20, 30 *», IHO 
ISri«IS4| 

00 12 11*1, IS 
ISM=ISM-1 

ATXC ISM )«ARRAY>« J, 1 1 ) 

ftTYCISM>.RRRAYY<J,m 

00 14 1 1*1, IS 
ARRAV}XJ,U>«ftT)«Il> 

ARRAYYC J, II >»ATY< I I ) 

GO TO 30 
I3M«=IS241 

DO 22 n*l,IS2 

1 €M- T eM« I 

»Txc ISM )»ARRAYK<' MI) 

ATYc ISM )*AFRAYY< 1 , 1 1 ) 

DO £4 II*1,IS2 
AFPAYX< I , II )«ATX< 1 1 > 

ARFAVYC Ml >«ATV< 1 1 ) 

I J»0 

NEWE*IS+IS2-l 
DO 50 II*IS,N£WE 











IJ-IJ-M 

ARRAYS^ J, 1 1 >«ARRAYX< I . I J > 
!»0 ARRAYY< J . 1 1 )-ARRAYY( M J > 
I$IZE< J)>NEUE 
ISIZEC I 
RETURN 
END 


READY 


3.2.19 SOFTWARE COMPONENT NO. 19 (CLSTST) 


3.2.19.1 Linkage 

Subroutine CLSTST is called by subroutine BDT3, and calls 
subroutines AREAl and LINIT. 

3.2.19.2 Interface 

Control information and data are communicated to subroutine 
CLSTST via common block Z (see Appendix A) . 

3.2.19 . 3 Input 
None 

3.2.19 .4 Output 
None 

3.2.19.5 Storage Requirements 

Subroutine CLSTST requires 324 words in core. 

3.2.19.6 Description 

Subroutine CLSTST accepts as input plot string arrays and 
determines whether these strings are complete, or "closed". 
Arrays which are complete are sent to subroutine AREAl for 
area computation, and upon returning, are plotted if the area is 
> Kappa, a user-supplied constant. 

3.2.19.7 Flowchart 


3.2.19 .8 Listing 




(CLSTST) 




I 





SUBROUTINE CL8T8T 

COMMON /Z/ NCRUP>ARRAVX<50,50)>ARRBYYCSe,50), ISI2E« 90).ASIZE'.5e 
> RRX< SB > « RR Y< SB > .. L 1 NE « VMRX / X8C / Y8C / KRRRA 
INTEGER RRRRYX/ ARRAY Y 
IF(NCRUP) 999/999.10 
le DO 100 !-l>NGRUP 
A1«ASIZE< 1 > 

IF<ABS< An GT 0 1> GO TO 100 
X1-1S1ZE<I> 

IF<11.LT 2> GO TO 100 
0IF1«ARRAYX< I . 1 )-ARRAYX< I , I 1 > 

IF<ABS<OIFn.GT 0 01> GO TO 100 
DIF2*HRRAYV< I . 1 >-ARRAYY< I , I I > 

IF<AB8cOIF2).GT 0.01) GO TO 100 
CALL AREA 1< I. AREA) 

I F< ABS< AREA >.LT. KAPPA) GO TO 90 
00 50 JK«1«I1 

ARX< JK >«ARRAYX< I , JK ) « XSC 
50 ARY< JK)-<YMAX-ARRAYY<rjK)> * YSC 
CALL LINIT<ARX. ARY, 11,0) 

ASIZECI )«A3IZE<I ) * AREA 
LX«ARRAYX< 1,1) 

LY*ARRAYY< M ) 

C WRITE<10,60'LY,LX,ASIZE<I) 

C 60 F0RMAT< • AREA< M3, ' X M3, ' )•' ,F8.2) 

ASIZE^I )*0 
ISIZE<I)*0 
100 CONTINUE 
3'?9 PETUPr< 

END 


PfAOV 


3.2. 20 SOFTWARE COMPOHENT NO. 20 (AREAl) 


3.2. 20,1 Llnk«q< 

Subroutine AREAl ii called by subroutines CONECT, CONALL, riNDAR, 
CLSTST, and ENDTST. 

3.2. 20.2 Interface 

Control information and data xnformation are communicated by moani, 
of common block Z (see Appendix A) . 

3.2.20.3 Input 

A plot string index is input to AREAl via a calling argument. 

3.2.20.4 Output 

An area value is output via a calling argument. 

3.2.20.5 Storage Requirements 
Subroutine AREAl requires 122 words in core. 

3.2.20.6 Description 

Subroutine AREAl accepts as input a plot string array, either 
partial or complete. AREAl computes the area or partial area 
in pixel units that this array represents. 

3.2.20.7 Flowchart 

3.2.20.8 Listing 





ouioi::al pag!' is 

OP POOR QUALITY 


SUBROUTINE MCA! (I. AREA) 

CONNWi /2/ NGRUP*ARRAYX<50.5e)>ARRAVV«:5e>3B>/ISi2E’ 
. MXC 5d ) . M V< Se > > L I ME > YtlAK . H8C ^ VSC . KMfA 
INTCCCR AfWAVX.ARRAYY 

CONFUTE AREA USING ARRRVX< I.AI.L)«ARRAYYa/RU> 
11-IS12E<I> 

AREA»e 

00 lee w«2>ii 

OX*ARRAYX< I , J )-ARRAYX< I > J-I ) 
area-area ♦ t\V<% ARRAYV<1,J> 

108 f'ONTINUE 
RETURN 
ENO 


READY 



3.2.21 SOFTWARE COMPONENT NO . 2 1 


(ENDTST) 


3.2.21.1 Linkaga 

mmmmmmmmmmmrnm 

Subroutine ENDTST la called by subroutine BDT9# and calls 
subroutines AREAl and LINXT. 

3.2.21.2 Interface 

Subroutine ENDTST receives control information through com.'^ t>n 
block Z (see Appendix A). 

3.2.21.3 Input 
None 

3.2.21.4 Output 
None 

3.2. 21. 5 Storage Requirements 

Subroutine ENDTST requires 723 words in core. 

3.2.21.6 Description 

Subroutine ENDTST handles, by segmentation, plotting and 
summation of area measurement for large plot strings which cannot 
be stored contiguously. 

3.2.21.7 Flowchart 

3.2.21.8 Listing 


(ENDTST) 



START 

/ 


I 






Do Any 
Plot Strings \ 
^•long to « Sogmonted 
^ Group? 



1 

■ “ 


> 



Do Two 

y 

Coinnon End 

1 

1 

Pointg 

Exist? 

AREAl ; 



Sum Partial ' 



Area of these | 
Plot Strings j 


N 


I 

I 


Does The 

Plot String Need 
To te Reordered? 


Reorder 
Plot dtring 


Set Arrays _ LIN1T9 

For Reuse , ' 

Plot 

Are All - N Boundary 

Completed Groups ' ' 

Closed? 



. . 

j Close 

! Completed 

Groups 

i.. 

i 

I ■- 


AREAl 

Sum Partial 
Area of ThiiS 
Plot String 


RETURN 






READY 

SUBROUTINE ENDTST 
0 1 MENS ION LRK( 50 ) . LRY< 50 > 

ISX2E<5e ;,ASIZE^ V 

; 252r 2S ^ , vsc * kappa 

INTEGER ARRAYX.ARRAYY 
IFvNGRUP) 99/99.1 

1 DO 10 I-l NGRUP 

n«xsiZE<i> 

IF<X1-1> 10,2,10 

2 DO 9 J*1,NCRUP 
I2»ISI2E<J> 

IF<X2-1> 9,9/3 

Z N*1 

AXi-ARRAYX<I,l > 

AY1*ARRAYY<X,1 > 

4 AX2*ARRAYX< J,N) 

AY2»ARRAYY<J,N) 

IF<ABS<AXl-AX2).GT.0.0l) CO TO 5 
IF<ABS<AY1-AY2) CT.0.0l> CO TO 5 
IF<N-1> 0,8,7 w «,» 

IF<N-X2> 6,9,6 
N*X2 
GO TO 4 

7 L«X2^l 

00 71 LL-1,I2 
L»L-1 

LRX<LL >«ARRAYX<J,L> 

’ 1 L« Y< LL >-ARRAYY< J , L > 

DO 72 LL«l,X2 
ARRAYX< J, LL )-LRX< LL > 

’2 ARftAYY( J , LL )»LRY< LL ) 

8 00 88 L»1,X2 
ARX<L)«ARRAYX< J,L> * XSC 


/C/ 



88 


VSC 


10 


n 

i£ 

13 


14 


cS:t k»piT51^5^g®^'*2,0) 

SSravvJ { ' } J*S5Sf ' *2 > 

ASI2E<J)«0. 

GO TO Id 

continue 

CONTINUE 
9? |0 |*1*NC8UP 

9° }9 >1 ,NCRUP 
}£<J“J> 12*19,12 
I2*ISI2E<J> 

IF< 12-1 > 19, 13, IQ 

PVl«8RR#;iYY< 1,1) 

^2|"PRRPV)«j,i) 

My2*pRRRyv< j, I > 

IF<NBSCNX1-8X2).CT.0 01) cO TQ 14 
0V1-0Y2>.CT.0.01> gg ^§ }| 

t*Y*AY 1 

.^£fP*8SI2Ec: I >-08I2E< J > 

SllSy?' * ^ >LY*l.xfSl^0 

FuPKAK " ARE8( *,13, « , 
AST2Ea>«0. 

(iSlZEi J )rt0 
ISI2E<I)»0 


REf^Y 


13, 





ISX2E( J)»0 
19 CONTINUE 

29 CONTINUE 

00 30 J-l.NGRUP 
JI«ISIZE< J> 

IF< Ji-1 >30/25^30 
^5 LX»ARRrtYX< J.l> 
LY=ARRAYY< J, 1) 
IFvLY.CE.LINE> CO TO 30 
ASI2E< J>«0. 

ISIZEC J>-0 

30 CONTINUE 
99 RETURN 

END 


KEnDY 



4. OPERATION 


The users of this software system are researchers and analysts 
who need a method of comparing classification results to ground 
triith and an accurate means of production display of classification 
results. The input to tl i . '.'ftware system is a 7-or 9- track, 800 
BPI universally formatted o ■ .ssification data tape directly or 
indirectly obtained from the GE Interactive Multispectral Image 
Analyst System (IMAGE 100) , the Earth Resources Interactive 
Processing System (ERIPS) , and the UNIVAC 1100 Software (EOD-LARSYS) . 

4.1 USER DOCUMENTATION 

There is no formal user's document required in this phase 
implementation; the function of such a document is satisfied by 
the Technical Memorandum entitled "Software Specifications for 
Automated Thematic Plotting of Classified Digital Data", April 
1976 (LEG 8289) . 

4.2 OPERATION DOCUMENTATION 
N/A 
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OCTAL 

NUMBER 

0 

440 

3330 

4007 

4200 

136S1 

14234 
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Constants 


1. Bendix System 100 labeled common 
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Fortran Initialization routine 
- 1st routine executed by each overlay 
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Figure 2: Bendix System 100 Core Utilization Map 
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Figure 3: User's Procedure 
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Figure 3: User's Procedure (continued) 
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appendix a 

BDARPl COMMON TABLE 



BDARH COMMON TABLE 




Title 

Common 

Initial 

Block 

Value 

1. 

Header Record 
constants 

ICONS 

INPUT 

2. 

Tape File 
Nuniber 

ICONS 

INPUT 

3. 

Tape Parity 

ICONS 

INPUT 

4. 

' 1 - 1 Track 

1C‘J.\S 

l.’vx . . 

5. 

Channel No. 

ICONS 

INPUT 

6. 

Class Value 

ICONS 

INPUT 

/ . 

Star ting/Ending 
Line 

If'ONS 

INPUT 

'y 
) • 

Starting/Ending 

Pixel 

ICONS 

INPUT 

0 . 

Epsilon Value 

ICONS, 2 Z 

INPUT 

10. 

Kappa Value 

ICONS , Z 

INPUT 

11. 

8 Registration 
coefficients 

ICONS 

INPUT 

12. 

Index on FINDAR 
failures due to 

maxfil 

0 


all plot arrays 
bt.'ing filled 



I 3. 

No. of plot 
arrays in use 

z 

0 

14. 

X and y arrays 
of current 

z 

0 


boundary plot 
str inn- 


Initialized 
^ _ 

Referenced 

by. 

Modified 

by 

REA>^ 9 

p - 

REAHD 


1 ■ • 9 

INITM 

INPBD 


— 

INPBD 


— 

'NPBD 

P.l Uli , ! »v • . , 


INPBD 

RDLIN9 


INPBD 

RDLIN9 . BDT9 


INPBD 

INPBD 

RDLIN9 ,BDT9 
BDT9,FILL 

1 1 

INPBD 

INPBD 

CLSTST 

LINIT 


BDT9 

BDT9,F INDAP 

FINDAR 

BDT? 

FTNDAF 

findak 

FINDA.p 

* 




XV/ 


BDARPl COfOWN TABLE (cont) 


No. 

Title 

Common 

Block 

Initial 

Value 

Initialized 
^ 

Referenced 

by 

Modified 

by 

15. 

Vector de- 
scribing 
length of each 
boundary string 

Z 

0 

FINDAR 

* 

* 

16. 

Vector de- 
scribing area 
of each boundary 
string 

Z 

0 

FINDAR 

* 

*,AR£A1 

17. 

X and Y array of 
plot string in 
drawing file 
format 

Z 

0 

* 

* 

• 

18. 

Present line 
number 

Z 

1 

BDT9 

BDT9,FILL 

BDT9 

19. 

Pixel scaling 
factors , X&Y 

Z 

0.1, 0.1 

BDT9 

* 

— 

20. 

Block of "pixel" 
data, unchanged 

ZZ 

INPUT 

BDT9 

BDT9,FILL 

— 

21. 

Block of "pixel" 
data after fill 

ZZ 

COMPUTED 

FILL 

BDT9,FILL 

FILL 

22. 

No. of pixels/line 

ZZ 

COMPUTED 

BDT9 

BDT9,FILL 



* dcf.otes most of the following: BDT3 

JOIN 


ENDTST, CLSTST, CONF.CT, CO!iALL 
and FINDAR, 



